home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / ArtForTheMac.sea.hqx / Sample Scenes / legoblocks < prev    next >
Text File  |  1992-09-21  |  816b  |  49 lines
  1. #--------------------------------------------
  2. #  A little library of lego block shapes.
  3. #--------------------------------------------
  4.  
  5. csg unit {
  6.     box unit { 
  7.         vertex (-0.5, -0.5, -0.5)
  8.         vertex (0.495, 0.495, 0.495)
  9.     }
  10.  box interior {
  11.       vertex (-0.45, -0.5, -0.45)
  12.    vertex (0.45, 0.49, 0.45)
  13.  }
  14.     cylinder knob
  15.     {
  16.          center (0, 0.495, 0)
  17.       center (0, 0.72, 0)
  18.       radius 0.36
  19.     }
  20.  (unit - interior) + knob 
  21. }
  22.  
  23. composite singleton {
  24.  material 0.0, 0.35, 0.75, 16
  25.  reflectance 0.12
  26.  ambient 0.2, 0.2, 0.2  
  27.  unit { }
  28. }
  29.  
  30. composite doubleton {
  31.         singleton { }
  32.      singleton { translate (.99, 0, 0)  }
  33. }
  34.  
  35. composite square {
  36.      doubleton {}
  37.   doubleton { translate (0,0,.99) }
  38. }
  39.  
  40. composite long {
  41.   doubleton {}
  42.   doubleton { translate (1.98, 0, 0) }
  43. }
  44.  
  45. composite eight {
  46.      square {}
  47.   square { translate (1.98, 0, 0) }
  48. }
  49.